<%if application("udate")=true then response.redirect "../probihaupdate.html" end if%> <% katpopis=" - Zobrazení zvoleného výběru" katpod="" katwords="kasima" if request.querystring("katnazev")="Doplňky" then katpopis=" - Doplňky" katwords="doplňky,doplněk,kasima,polystyrénové hlavy,paruk,vlasovou kosmetiku,šampóny,kondicionéry,laky na paruky" katpod="V nabídce firmy KASIMA jsou také polystyrénové hlavy pro odkládání paruk a vlasová kosmetika - především šampóny, kondicionéry a laky speciálně určené pro použití na paruky a příčesy." end if if request.querystring("katnazev")="Šály Šátky" then katpopis=" - Šály a šátky" katwords="šátky,šály,šátek,šála,kasima,společenské,sportovní" katpod="Šály a šátky nejsou tím hlavním co KASIMA nabízí, přesto si můžete vybrat z široké nabídky několika stovek druhů. Šály a šátky se staly již běžným doplňkem dnešní moderní ženy." end if%> <%if request.querystring("katnazev")="Doplňky" or request.querystring("katnazev")="Šály Šátky" then else%> <%end if%> <% randomize cislo=int(rnd*7) dim pomocna,dbconnection,recordset,odpovedcislo,jonebone set dbconnection=server.createobject("adodb.connection") pomocna="driver={microsoft access driver (*.mdb)}; " pomocna=pomocna & "dbq=" & server.mappath("admin/forum.mdb") dbconnection.open pomocna set recordset=server.createobject("adodb.recordset") recordset.activeconnection=dbconnection recordset.cursortype=1 recordset.locktype=3 %>

<%recordset.open "SELECT * FROM kategorie order by kategorie.kod;" citac=0 %> <%do while not recordset.eof citac=citac+1 %> <%if int(request.querystring("kat"))=recordset("id") then set dbconnection2=server.createobject("adodb.connection") pomocna2="driver={microsoft access driver (*.mdb)}; " pomocna2=pomocna2 & "dbq=" & server.mappath("admin/forum.mdb") dbconnection2.open pomocna2 set recordset2=server.createobject("adodb.recordset") recordset2.activeconnection=dbconnection2 recordset2.cursortype=1 recordset2.locktype=3 recordset2.open "Select * from podkategorie where podkategorie.kat='"&request.querystring("kat")&"' order by podkategorie.nazev;" if recordset2.eof and recordset2.bof then else do while not recordset2.eof%> <% recordset2.movenext loop end if if request.querystring("kat")=47 then kk=6546565 %> <%end if%> <%if request.querystring("kat")=48 then kk=65465 %> <%end if recordset2.close dbconnection2.close set recordset2=nothing set dbconnection2=nothing end if recordset.movenext loop recordset.close %> <%citac=20000%> <%citac=20005%> <% url=Request.ServerVariables("HTTP_X_FORWARDED_FOR")&Request.ServerVariables("REMOTE_ADDR") if application(url&"index")=0 or application(url&"index")="" or isempty(application(url&"index")) then videt="nevidet" else videt="videt" end if %>    " onmouseout="iko<%=citac %>.src='images/u<%=citac %>.gif'" onmouseover="iko<%=citac %>.src='images/tu<%=citac %>.gif'"><%=recordset("nazev") %>    <%if recordset2("id2")<>int(request.querystring("podkat")) then %>&podkat=<%=recordset2("id2")%>"><%else%><%end if%><%=recordset2("nazev") %><%if recordset2("id2")<>int(request.querystring("podkat")) then %><%end if%>    Barvy paruk    Barvy příčesů    Služby    Jako výchozí stránka    Přidat k oblíbeným    Zpět na hlavní stranu <% if request.querystring("podkat")<>"" then recordset.open "SELECT * FROM podkategorie where podkategorie.id2="&request.querystring("podkat")&";" obrazek=recordset("obrazek") popis=recordset("popis") recordset.close else obrazek="nic.gif" end if %> <%else%> <%end if%> <%else%> <%end if%> <%if request.querystring("podkat")<>"" then%> <%=popis%> <%else if request.querystring("method")<>"search" then %> <%=request.querystring("katnazev")%> <%=katpod%> <% end if end if%> <%if request.querystring("podkatnazev")<>"" then%> <%=request.querystring("podkatnazev")%> <%else%> Výsledky třídění <%if request.querystring("barva") then%> podle barvy <%=request.querystring("barva")%> <%end if%> <%end if%> <%if request.querystring("method")="search" then%> <%if request.querystring("method")="search" then%>   O firmě   |   Prodejny   |   Kontakt   |   Péče o produkty   |   Partneři   |   Nápověda   <%recordset.open "select * from aktualizovano" aktualizace=recordset("datum") recordset.close %> Aktualizováno: <%=aktualizace%> Optimalizováno pro rozlišení 1024x768  Všechna práva vyhrazena (c) 2005 KASIMA Ostrava, Design www.mischel.cz

<% dbconnection.close set recordset=nothing set dbconnection=nothing %>